NY Times US States Data Analysis
db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
labs(title="Elasped Days from First Confirmed Case(WA)",
x="Delayed in Days",y="US States(and DC",
caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Warning: Removed 5 rows containing missing values (position_stack).
Summary of Cases,Deaths and Death Rate by Date
Summary of Cases and Deaths by State
Summary of Ohio Deaths and Cases
statesSum <-us_states %>% group_by(state) %>%
summarise(
tc = sum(cases),
td = sum(deaths))
ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=tc,col=tc)) +
scale_x_continuous(labels = scales::comma) +
labs(title="Total Cases by States",subtitle="(As of May 18, 2020)",
x="Total Cases",y="US States")

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=td,col=td)) +
scale_x_continuous(labels = scales::comma) +
labs(title="Total Deaths by States",subtitle="(As of May 18, 2020)",x="Total Deaths",y="US States")

dbDisconnect(db)